home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / Utilities / EvenMore / Install < prev    next >
Text File  |  1998-06-10  |  12KB  |  509 lines
  1. ; *************************************************************
  2. ;
  3. ; $VER: Install_EvenMore 0.4beta6
  4. ; 
  5. ; Install script for EvenMore Copyright ©1996-1998 Chris Perver
  6. ;
  7. ; *************************************************************
  8.  
  9. (set old_level @user-level)
  10. (set @default-dest "")
  11. (set lng @language)
  12.  
  13. (complete 0)
  14.  
  15. ;=============================================================================
  16. ; Norsk
  17.  
  18. (if (= lng "norsk")
  19. (
  20.  
  21. (set #bad-kick
  22.   (cat "Du må ha minst Kickstart 2.04 for å  installere EvenMore")
  23. )
  24. (set #copy-reqtools      "\nKopierer reqtools.library 38.1436 til LIBS:...")
  25. (set #copy-evenmore      "\nKopierer EvenMore exe-fil...")
  26. (set #copy-documentation "\nKopierer EvenMore dokumentasjon...")
  27. (set #copy-nostalgia     "\nKopierer EvenMore nostalgia...")
  28. (set #copy-iconsstan     "\nKopierer Standard knappe-ikoner ...")
  29. (set #copy-iconsmwb      "\nKopierer MagicWB knappe-ikoner...")
  30. (set #copy-iconsprog     "\nKopierer Program-ikoner...")
  31. (set #copy-iconsdock     "\nKopierer Dokk-ikoner...")
  32. (set #copy-rexx          "\nKopierer ARexx-script...")
  33. (set #copy-pic           "\nKopierer EvenMore bilde...")
  34. (set #select-dest        "Vennligst velg Evenmore-skuffen med den tidligere installasjonen.")
  35. (set #select-destnew     "Vennligst velg stien for installasjon av Evenmore. En skuff kalt Evenmore vil bli laget der.")
  36. (set #select-destdocs    "Vennligst velg stien for installasjon av dokumentasjonen til Evenmore. Den har allerede blitt installert sammen med hovedprogrammet.")
  37. (set #select-destrexx    "Vennligst velg stien for installasjon av ARexx-script. Den har allerede blitt installert sammen med hovedprogrammet.")
  38. (set #query-install      "Ønsker du å oppdatere eller installere EvenMore?")
  39. (set #query-copydocs     "Ønsker du å installere dokumentasjonen til Evenmore på noe annet sted?")
  40. (set #query-copyprefs    "Ønsker du å installere standard preferanse-filen?")
  41. (set #query-copyrexx     "Ønsker du å installere ARexx-script på noe annet sted?")
  42. (set #yes                "Ja")
  43. (set #no                 "Nei")
  44.  
  45. )
  46.  
  47. ;=============================================================================
  48. ; English
  49.  
  50. (
  51.  
  52. (set #bad-kick
  53.   (cat "You must at least have Kickstart 2.04 to install EvenMore")
  54. )
  55. (set #copy-reqtools      "\nCopying reqtools.library 38.1436 to LIBS:...")
  56. (set #copy-evenmore      "\nCopying EvenMore executable...")
  57. (set #copy-documentation "\nCopying EvenMore documentation...")
  58. (set #copy-nostalgia     "\nCopying EvenMore nostalgia...")
  59. (set #copy-iconsstan     "\nCopying Standard gadget icons...")
  60. (set #copy-iconsmwb      "\nCopying MagicWB gadget icons...")
  61. (set #copy-iconsprog     "\nCopying Program icons...")
  62. (set #copy-iconsdock     "\nCopying Dock icons...")
  63. (set #copy-rexx          "\nCopying ARexx scripts...")
  64. (set #copy-pic           "\nCopying EvenMore snapshot...")
  65. (set #select-dest        "Please select the EvenMore drawer of the previous installation.")
  66. (set #select-destnew     "Please select the path where you want to install EvenMore. A drawer named EvenMore will be created there.")
  67. (set #select-destdocs    "Please select the path where you want to install the EvenMore documentation. It has already been installed along with the main program.")
  68. (set #select-destrexx    "Please select the path where you want to install the ARexx scripts. It has already been installed along with the main program.")
  69. (set #query-install      "Do you wish to install or update EvenMore?")
  70. (set #query-copydocs     "Do you wish to install the EvenMore documentation anywhere else?")
  71. (set #query-copyprefs    "Do you wish to install the default preference file?")
  72. (set #query-copyrexx     "Do you wish to install the ARexx scripts anywhere else?")
  73. (set #yes                "Yes")
  74. (set #no                 "No")
  75.  
  76. )
  77. )
  78.  
  79. ;=============================================================================
  80. ; Make sure we are running under a 2.04 ROM
  81.  
  82. (if (< (/ (getversion) 65536) 37)
  83.   (
  84.     (abort #bad-kick)
  85.   )
  86. )
  87.  
  88. ;=============================================================================
  89. ; Install or update
  90. (set install
  91.   (askchoice
  92.      (prompt #query-install)
  93.      (help @askchoice-help)
  94.      (choices "Install" "Update")
  95.   )
  96. )
  97.  
  98.  
  99. ;-----------------------------------------------------------------------------
  100. ; Copy Required libraries
  101.  
  102. (if (= install 0)
  103.   (
  104.     (copylib
  105.       (prompt #copy-reqtools)
  106.       (help @copylib-help)
  107.       (source "Libs/reqtools.library")
  108.       (dest "LIBS:")
  109.       (confirm)
  110.     )
  111.   )
  112. )
  113. (complete 10)
  114.  
  115. ;-----------------------------------------------------------------------------
  116. ; Copy EvenMore executable
  117.  
  118. (if (= install 0)
  119.   (
  120.     (set programdir
  121.       (askdir
  122.         (prompt  #select-destnew)
  123.         (help @askdir-help)
  124.         (default "RAM:")
  125.         (newpath)
  126.       )
  127.     )
  128.   )
  129.   (
  130.     (set programdir
  131.       (askdir
  132.         (prompt  #select-dest)
  133.         (help @askdir-help)
  134.         (default "RAM:")
  135.       )
  136.     )
  137.   )
  138. )
  139.  
  140. (if (= install 0)
  141.   ; Create EvenMore drawer
  142.   (
  143.     (makedir (tackon programdir "EvenMore")
  144.       (help @makedir-help)
  145.     )
  146.  
  147.     ; Copy EvenMore drawer icon
  148.     (copyfiles
  149.       (prompt #copy-evenmore)
  150.       (help @copyfiles-help)
  151.       (source "/EvenMore.info")
  152.       (dest programdir)
  153.     )
  154.  
  155.     (set programdir (tackon programdir "EvenMore"))
  156.   )
  157. )
  158. (set @default-dest programdir)
  159.  
  160. (copyfiles
  161.   (prompt #copy-evenmore)
  162.   (help @copyfiles-help)
  163.   (source "")
  164.   (dest programdir)
  165.   (pattern "EvenMore")
  166.   (infos)
  167. )
  168. (complete 20)
  169.  
  170. ;-----------------------------------------------------------------------------
  171. ; Documentation files
  172.  
  173. (if (not (exists (tackon programdir "Docs")))
  174.   (
  175.     (makedir (tackon programdir "Docs")
  176.       (help @makedir-help)
  177.     )
  178.  
  179.     (copyfiles
  180.       (prompt #copy-documentation)
  181.       (help @copyfiles-help)
  182.       (source "Docs.info")
  183.       (dest programdir)
  184.     )
  185.   )
  186. )
  187.  
  188. (copyfiles
  189.   (prompt #copy-documentation)
  190.   (help @copyfiles-help)
  191.   (source "Docs")
  192.   (dest (tackon programdir "Docs"))
  193.   (all)
  194.   (confirm "expert")
  195.   (infos)
  196. )
  197. (complete 30)
  198.  
  199. ; Ask if documentation should be installed elsewhere
  200.  
  201. (if
  202.   (askbool
  203.     (prompt #query-copydocs)
  204.     (choices #yes #no)
  205.     (default 0)
  206.     (help @askbool-help)
  207.   )
  208.   (
  209.     (set doit 1)
  210.   )
  211.   (
  212.     (set doit 0)
  213.   )
  214. )
  215.  
  216. (if (= doit 1)
  217.   (
  218.     (set docdir
  219.       (askdir
  220.         (prompt #select-destdocs)
  221.         (help @askdir-help)
  222.         (default (tackon programdir "Docs"))
  223.         (newpath)
  224.       )
  225.     )
  226.  
  227.     (copyfiles
  228.       (prompt #copy-documentation)
  229.       (help @copyfiles-help)
  230.       (source "Docs/EvenMore.doc")
  231.       (dest docdir)
  232.       (infos)
  233.     )
  234.  
  235.     (copyfiles
  236.       (prompt #copy-documentation)
  237.       (help @copyfiles-help)
  238.       (source "Docs/EvenMore.guide")
  239.       (dest docdir)
  240.       (infos)
  241.     )
  242.   )
  243. )
  244. (complete 40)
  245.  
  246. ;-----------------------------------------------------------------------------
  247. ; Copy icons
  248.  
  249. ; OBSOLETE
  250. (if (exists (tackon programdir "Dockicons"))     (delete (tackon programdir "Dockicons")     (infos) (all)))
  251. (if (exists (tackon programdir "MWBIcons"))      (delete (tackon programdir "MWBIcons")      (infos) (all)))
  252. (delete (tackon programdir "Icons/#?.info"))
  253.  
  254.  
  255. (set iconsdir
  256.   (tackon
  257.     programdir
  258.     "Icons"
  259.   )
  260. )
  261.  
  262. (if (not (exists iconsdir))
  263.   (
  264.     (makedir iconsdir
  265.       (help @makedir-help)
  266.     )
  267.     (copyfiles
  268.       (prompt #copy-iconsstan)
  269.       (help @copyfiles-help)
  270.       (source "Icons.info")
  271.       (dest programdir)
  272.     )
  273.   )
  274. )
  275.  
  276. ; Standard gadget icons
  277.  
  278. (if (not (exists (tackon iconsdir "Standard")))
  279.   (
  280.     (makedir (tackon iconsdir "Standard")
  281.       (help @makedir-help)
  282.     )
  283.   )
  284. )
  285.  
  286. (copyfiles
  287.   (prompt #copy-iconsstan)
  288.   (help @copyfiles-help)
  289.   (source "Icons/Standard/")
  290.   (dest (tackon iconsdir "Standard/"))
  291.   (pattern "#?.info")
  292.   (confirm "expert")
  293.   (infos)
  294. )
  295. (complete 50)
  296.  
  297. ; MagicWB gadget icons
  298.  
  299. (if (not (exists (tackon iconsdir "MagicWB")))
  300.   (
  301.     (makedir (tackon iconsdir "MagicWB")
  302.       (help @makedir-help)
  303.     )
  304.   )
  305. )
  306.  
  307. (copyfiles
  308.   (prompt #copy-iconsmwb)
  309.   (help @copyfiles-help)
  310.   (source "Icons/MagicWB/")
  311.   (dest (tackon iconsdir "MagicWB/"))
  312.   (pattern "#?.info")
  313.   (confirm "expert")
  314.   (infos)
  315. )
  316. (complete 60)
  317.  
  318. ; Program icons
  319.  
  320. (if (not (exists (tackon iconsdir "Program")))
  321.   (
  322.     (makedir (tackon iconsdir "Program")
  323.       (help @makedir-help)
  324.     )
  325.   )
  326. )
  327.  
  328. (copyfiles
  329.   (prompt #copy-iconsprog)
  330.   (help @copyfiles-help)
  331.   (source "Icons/Program/")
  332.   (dest (tackon iconsdir "Program/"))
  333.   (pattern "#?.info")
  334.   (confirm "expert")
  335.   (infos)
  336. )
  337. (complete 70)
  338.  
  339. ; Dock icons
  340.  
  341. (if (not (exists (tackon iconsdir "Dock")))
  342.   (
  343.     (makedir (tackon iconsdir "Dock")
  344.       (help @makedir-help)
  345.     )
  346.   )
  347. )
  348.  
  349. (copyfiles
  350.   (prompt #copy-iconsdock)
  351.   (help @copyfiles-help)
  352.   (source "Icons/Dock/")
  353.   (all)
  354.   (dest (tackon iconsdir "Dock/"))
  355.   (confirm "expert")
  356. )
  357. (complete 80)
  358.  
  359. ;-----------------------------------------------------------------------------
  360. ; Copy EvenMore nostalgia dir
  361.  
  362. (if (not (exists (tackon programdir "Nostalgia")))
  363.   (
  364.     (makedir (tackon programdir "Nostalgia")
  365.       (help @makedir-help)
  366.     )
  367.     (copyfiles
  368.       (prompt #copy-nostalgia)
  369.       (help @copyfiles-help)
  370.       (source "Nostalgia.info")
  371.       (dest programdir)
  372.     )
  373.  
  374.     (copyfiles
  375.       (prompt #copy-nostalgia)
  376.       (help @copyfiles-help)
  377.       (source "Nostalgia")
  378.       (dest (tackon programdir "Nostalgia"))
  379.       (all)
  380.       (confirm "expert")
  381.     )
  382.   )
  383. )
  384. (complete 85)
  385.  
  386. ;-----------------------------------------------------------------------------
  387. ; Copy EvenMore rexx dir
  388.  
  389. (if (not (exists (tackon programdir "rexx")))
  390.   (
  391.     (makedir (tackon programdir "rexx")
  392.       (help @makedir-help)
  393.     )
  394.  
  395.     (copyfiles
  396.       (prompt #copy-rexx)
  397.       (help @copyfiles-help)
  398.       (source "rexx")
  399.       (dest (tackon programdir "rexx"))
  400.       (all)
  401.       (confirm "expert")
  402.     )
  403.   )
  404. )
  405.  
  406. (if
  407.   (askbool
  408.     (prompt #query-copyrexx)
  409.     (choices #yes #no)
  410.     (default 0)
  411.     (help @askbool-help)
  412.   )
  413.   (
  414.     (set doit 1)
  415.   )
  416.   (
  417.     (set doit 0)
  418.   )
  419. )
  420.  
  421. (if (= doit 1)
  422.   (
  423.     (set rexxdir
  424.       (askdir
  425.         (prompt #select-destrexx)
  426.         (help @askdir-help)
  427.         (default (tackon programdir "Rexx"))
  428.         (newpath)
  429.       )
  430.     )
  431.  
  432.     (copyfiles
  433.       (prompt #copy-rexx)
  434.       (help @copyfiles-help)
  435.       (source "rexx")
  436.       (dest rexxdir)
  437.       (all)
  438.       (confirm "expert")
  439.     )
  440.   )
  441. )
  442.  
  443. ;-----------------------------------------------------------------------------
  444. ; Copy EvenMore lib dir
  445.  
  446. (if (not (exists (tackon programdir "libs")))
  447.   (
  448.     (makedir (tackon programdir "libs")
  449.       (help @makedir-help)
  450.     )
  451.  
  452.     (copyfiles
  453.       (prompt #copy-libs)
  454.       (help @copyfiles-help)
  455.       (source "libs")
  456.       (dest (tackon programdir "libs"))
  457.       (all)
  458.     )
  459.   )
  460. )
  461. (complete 90)
  462.  
  463. ;-----------------------------------------------------------------------------
  464. ; Copy EvenMore snapshot
  465.  
  466. (copyfiles
  467.   (prompt #copy-pic)
  468.   (help @copyfiles-help)
  469.   (source "EvenMore.snapshot")
  470.   (dest programdir)
  471.   (confirm "expert")
  472. )
  473.  
  474. ;-----------------------------------------------------------------------------
  475. ; Copy EvenMore config
  476.  
  477. (if
  478.   (askbool
  479.     (prompt #query-copyprefs)
  480.     (choices #yes #no)
  481.     (default 1)
  482.     (help @askbool-help)
  483.   )
  484.   (
  485.     (copyfiles
  486.       (prompt #copy-libs)
  487.       (help @copyfiles-help)
  488.       (source "EvenMore.config")
  489.       (dest programdir)
  490.     )
  491.   )
  492. )
  493. (complete 95)
  494.  
  495. ;-----------------------------------------------------------------------------
  496. ; Copy EvenMore installer
  497.  
  498. (copyfiles
  499.   (prompt #copy-libs)
  500.   (help @copyfiles-help)
  501.   (source "")
  502.   (dest programdir)
  503.   (pattern "Install")
  504.   (infos)
  505. )
  506. (complete 100)
  507.  
  508. (exit)
  509.